"
I know how to detect a change in the collection of slots of the metaclass.
"
Class {
	#name : 'ShClassSlotChangeDetector',
	#superclass : 'ShAbstractClassChangeDetector',
	#category : 'Shift-ClassBuilder-Changes',
	#package : 'Shift-ClassBuilder',
	#tag : 'Changes'
}

{ #category : 'initialization' }
ShClassSlotChangeDetector >> initialize [
	super initialize.
	builderAccessor := [ :e | e classSlots ].
	classAccessor := [ :e | e class slots ].
	comparer := [ :a :b |  self compareVariables: a with: b ]
]

{ #category : 'changes' }
ShClassSlotChangeDetector >> newChanges [
	^ {(ShMetaclassChanged new
		builder: builder;
		yourself)}
]
